home *** CD-ROM | disk | FTP | other *** search
/ Delphi 2.0 - Programmer's Utilities Power Pack / Delphi 2.0 Programmer's Utilities Power Pack.iso / a_to_d / core1a / ctreg.pas < prev    next >
Pascal/Delphi Source File  |  1996-09-15  |  3KB  |  80 lines
  1. {$I CTSWITCH.INC}
  2. unit CtReg;
  3. {
  4. Copyright ⌐ 1995 by Core Software Limited
  5. Mail
  6.   Postal: 3 Tearne Street, St Johns, Worcester, WR2 6BL, England.
  7.   E'Mail: 100041.3143@compuserve.com
  8.  
  9. Description
  10.  This unit performs registration of the components in CoreTools for Delphi.
  11.  The file is suppied in Pascal format, so that the user can select which
  12.  components to install and to alter the pallette page on which they
  13.  appear by default.
  14.  Several of the components cannot be removed when installing, CtcBase provides
  15.  the base class used by the other components and must be present, along with
  16.  TAboutInfoPropertyEditor which is the editor for the About property on all
  17.  CoreTool components.
  18.  The components utilise the CoreTools library files, and these should always
  19.  remain together with the component units.
  20.  
  21. History
  22. Issue Date     Engineer        Description
  23. ----- -------- --------------- -----------------------------------------------------
  24. 1a    11.06.95 Malcolm Daleb°  ORIGINAL
  25. }
  26. interface
  27.  
  28. procedure Register;
  29.  
  30. implementation
  31.  
  32. uses
  33.   Classes,     { Provides TStringList, RegisterComponents procedure }
  34.   DsgnIntf,    { Provides RegisterPropertyEditor procedure }
  35.   SysUtils,    { Provides TFileName class }
  36.   CtlDate,     { Provides TCTDateText & TCtTimeText }
  37.   CtcBase,     { Declares TCoreTool abstract class }
  38.   CtcFBase,    { Declares TCoreFileBase abstract class }
  39.   CtcFile,     { Declares TFileTool class }
  40.   CtcParse,    { Declares TParseTool class }
  41.   CtcScan,     { Declares TScanTool class }
  42.   CtcSerch,    { Declares TSearchTool class }
  43.   CtcSysIn,    { Declares TSysInfoTool class }
  44.   CteAbout,    { Declares TAboutInfoPropertyEditor, always needed }
  45.   CteFileN,    { Declares TFileNamePropertyEditor, can be de-registered. }
  46.   CteSelct,    { Declares TSelectListPropertyEditor, can be de-registered. }
  47.   CteTime,     { Declares TTimeTextProperty editor, can be de-registered. }
  48.   CteDate;     { Declares TDateTextPropertyEditor, can be de-registered. }
  49.  
  50. {----------------------------------------------------------------------------}
  51. procedure Register;
  52. begin
  53. RegisterComponents('CoreTools', [TFileTool,     { CtFile }
  54.                                  TSearchTool,   { CtSearch }
  55.                                  TScanTool,     { CtScan }
  56.                                  TParseTool,    { CtParse }
  57.                                  TSysInfoTool]);{ CtSysInf }
  58.  
  59. { Register the property editor for the TAboutInfo class, always needed. }
  60. RegisterPropertyEditor(TypeInfo(TAboutInfo), TCoreTool, 'About', TAboutInfoPropertyEditor);
  61.  
  62. { Register the property editor for the TDateText class.
  63.   This editor can be de-registered without breaking anything. }
  64. RegisterPropertyEditor(TypeInfo(TCtDateText), nil, '', TDateTextPropertyEditor);
  65.  
  66. { Register the property editor for the TTimeText class.
  67.   This editor can be de-registered without breaking anything. }
  68. RegisterPropertyEditor(TypeInfo(TCtTimeText), nil, '', TTimeTextPropertyEditor);
  69.  
  70. { Register the property editor for the TSelectList class.
  71.   This editor can be de-registered without breaking anything. }
  72. RegisterPropertyEditor(TypeInfo(TSelectList), nil, '', TSelectListPropertyEditor);
  73.  
  74. { Register the property editor for the TFileName class, found in SysUtils.
  75.   This editor can be de-registered without breaking anything. }
  76. RegisterPropertyEditor(TypeInfo(TFileName), nil, '', TFileNamePropertyEditor);
  77. end;
  78.  
  79. end.
  80.